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— Windows. Mesa Edited by Sandman on September 27, 1977 11:28 AM 

DIRECTORY 

ControlDefs: FROM "controldef s", 
ImageDefs: FROM "imagedefs", 
InlineDefs: FROM "in! inedef s" , 
MenuDefs: FROM "menudefs", 
NovaOps: FROM "novaops", 
RectangleDefs : FROM "rectangledef s" , 
SegmentDefs: FROM "segmentdefs", 
StreainDefs: FROM "streamdef s" . 
StringDefs: FROM "stringdefs" , 
SystemDefs: FROM "systemdef s" , 
WindowDefs: FROM "windowdef s" ; 

DEFINITIONS FROM MenuDefs , SystemDefs , SegmentDefs, StreamDefs, RectangleDefs, WindowDefs; 

Windows: PROGRAM [dfn: STRING] 

IMPORTS ImageDefs, RectangleDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, 

WindowDefs 
EXPORTS WindowDefs SHARES WindowDefs, StreamDefs = 
BEGIN 

-- GLOBAL Data 

--dfn: STRING ♦- "f oo. scr ipt" ; 

currentwindow: WindowHandle ♦• NIL; 

def aultwindow: WindowHandle ♦• NIL; 

maxwindows: CARDINAL = 15; 

maxlines: CARDINAL = 50; 

linestarts: ARRAY [1 . .max! ines] OF Streamlndex; 

originindex: Streamlndex = StreamIndex[0 , 0]; 

nullindex: Streamlndex = StreamIndex[0, -1]; 

ControlA: CHARACTER = IC; 
BS: CHARACTER = IOC; 
CR: CHARACTER = 15C; 

-- mouse locations 

xmloc: POINTER = L00PH0LE[424B] 

ymloc: POINTER = L00PH0LE[425B] 

xcloc: POINTER = L00PH0LE[426B] 

ycloc: POINTER = L00PH0LE[4278] 

-- Mesa Display Window Routines 

CreateOisplayWindow: PUBLIC PROCEDURE 

[type: WindowType, rectangle: Rptr, ds: Displ ayHandle, ks: StreamHandle, name: STRING] 

RETURNS[WJndowHandle] = 

BEGIN 

-- declare locals 

w: WindowHandle; 
-- create window structure and init it 

w ♦• SystemDefs . AnocateHeapNode[STZE[DisplayWindow]] : 

wt ♦- DisplayWindow[NTL, type. NIL, NIL, NILProc, rectangle, ds, ks, NIL,,,,]; 
-- initialize data refresh mechanism based upon window type 

Al terWindowType[w, type, name]; 

SetCurren tDi splay Window[w]; 
RETURN[w]; 
END; 

Al terWindowType: PUBLIC PROCEDURE [w: WindowHandle. type: WindowType. name: STRING] 
BFGIN 

-- first undo all stuff for current type 
Sri rCT w. type FROM 

clear => NULL; -- window is simply cleared on activation 
random => NULl ; -- USfRS responsibility to repaint screen 
scratch, 
scr iptf i le, 

file => -- data is a window on file 
BEGIN 

If w. f ile ^ NIL TflEN 
BTGIN 
w. f ile.destroy[w. f i le]: 
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w.file 4- NIL; 
END; 
END; 
ENDCASE; 
-- now fixup all stuff for new type 
w.type ^ type; 
SELECT type FROM 

clear => NULL; -- window is simply cleared on activation 
random => NULL; -- USERS responsibility to repaint screen 
scratch, 
scriptf ile, 

file => — data is a window on file 
IF name # NIL THEN 

SetFileForWindow[w, name]; 
ENDCASE; 
-- and set name (if not done already) 

IF (w.name = NIL AND name ^ NIL) OR w.name # name THEN 
BEGIN 

IF w.name # NIL THEN FreeHeapString[w. name] ; 
w.name ♦• SystemOefs .AnocateHeapString[name. length]; 
iJtringDef s .AppendString[ w.name, name]; 
END; 
-- set current selection null 

w. selection *- Selection[lef tmargin , leftmargin, 1 , 1 , null index, nullindex]; 

— setup Stream options based upon stream existance 
IF w.ds ^ NIL THEN 

BEGIN 

w. ds. options .NoteLineBreak ♦• TRUE; 
w. ds, options .NoteScroll ing ♦• TRUE; 
w.ds. put <- WriteWindowChar; 
SELECT type FROM 

clear => NULL: 

random -> NULL; 

scratch, 

scriptfile => w.ds . options .StopBottom ♦• FALSE; 

file => w. ds .options. StopBottom *- TRUE; 

ENDCASE; 
END; 
END; 

DestroyDisplayWindow: PUBLIC PROCEDURE [w: WindowHandle] = 

BEGIN -- clear it, unlink it deallocate record space and return 
-- define locals 

rectangle: Rptr = w. rectangle; 

clearwords: GrayArray ♦- [0, 0. 0, 0]; 

clear: GrayPtr = Qclearwords; 

— clear it and free any storage 
ClearBoxInRectangle[rectangle, 0, rectangle. cw, 0, rectangle. ch , clear]; 
IF w = currentwindow THEN 

BEGIN 

IF w = w.link THEN 
BEGIN 

currentwindow ^ NIL; 
UndoDataSetup[w] ; 
END 
ELSE 
BEGIN 

SetCurrentDispl ayWindow[w. 1 ink] ; 
END; 
END; 
Unl inkD i splayWindow[w] ; 

IF w.file # NIL THEN w . Ti le . des troy[w . f i le] ; 
Sys temDeFs .FreeHeapNode[w]; 

-- later!! must undo anything done to StreamObject 
END; 

Unl inkDisplayWindow: PUBIIC PROCfDURF [w: Wi ndov/flandl e] = 
BEGIN 
-- define locals 

next: WindowHandle; 

-- check if only window 

IF w. 1 ink = w THFN 

currentwindow *- NIL 
FISE 
BfGIN 
IF w = currentwindow THFN currentwindow <- w.link; 
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next ♦- w; 

WHILE next. link # w DO 
next ♦• next. 1 ink; 
ENDLOOP; 
next. link ♦• w.link; 
END; 
w.link ♦• NIL; 
END; 

RepaintDisplayWindows: PUBLIC PROCEDURE [mapdata: BMHandle]= 
BEGIN 

— declare locals 
i, j: INTEGER; 
w: WindowHandle; 

wa: ARRAY[0. .maxwindows) OF WindowHandle; 
-- Build array of window handles 
i ♦- 0; 

w ♦• currentwindow; 
DO 

wa[i] ♦■ w; 
w ♦• w . 1 i n k ; 
i ^ i + 1; 

IF w = currentwindow THEN EXIT 
ENDLOOP; 
-- now paint them in reverse order 
FOR j DECREASING IN [0..i) DO 
SetCurrentDisplayWindow[wa[j]]; 
ENDLOOP; 
END; 

PaintDisplayWindow: PUBLIC PROCEDURE [w: WindowHandle] = 
BEGIN 
-- declare locals 

rectangle: Rptr = w. rectangle; 

clearwords: GrayArray ♦- [0, 0, 0, 0]; 

clear: GrayPtr = 9c1earwords; 
-- first see if it's visible 

IF w. rectangle. visible = FALSE THEN RETURN; 

— clear it and draw a box around it 
ClearBoxInRectangle[rectangle, 0, rectangle, cw. 0, rectangle. ch , clear]; 
DrawDisplayWindow[w] ; 

-- do type dependent stuff 
IF w.ds # NIL THEN 
BEGIN 

SetDisplayLine[w. ds, 1, lef tmargin] ; 
w.ds. chary ♦- w.ds. chary + i; 
END; 
SELECT w.type FROM 

clear, -- window is simply cleared on activation 
random => -- USERS responsibility to repaint screen 

w. displ ayproc[w] ; -- dispatch to procedure 
scratch, -- data is maintained in scratch file 
scriptfile, -- data is maintained in typescript file 
file => -- window on a file 
IF w.file H NIL THEN 

w. displ ayproc[w] ; -~ dispatch to procedure 
ENDCASE; 
UpdateSelection[w]; 
END; 

DrawDisplayWindow: PUBLIC PROCCDURE [w: WindowHandle] = 
BEGIN 

-- declare locals 
pfont: FAptP; 

rectangle: Rptr = w. rectangle; 
x,y , 1 ineheight: INTEGER; 
-- write box name 

[pfont, 1 ineheight] ^ Ge tDef aul tFont[ ] ; 
ir w.name // NIL THFN 
BEGIN 

[x,y] ♦- Wr i teRectangleStr ing[rectangle . 2, 1, w.name, pfont 
! Rectanglefrror => 
Sri fCT error FROM 
NoLVis ible, 
R 1 gh tOverf low, 
BotlomOverflow => CONTINUE; 
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ENDCASE 
3: 

END; 
-- invert the top stripe; 

InvertBoxInRectangle[rectangle, 
-- draw box arround the edge; 

DrawBoxInRectangle[rectangle, 0, 
END; 



0, rectangle. cw, 0, lineheight + 1]; 
rectangle. cw, 0, rectangle. ch] ; 



FindDisplayWindow: PUBLIC PROCEDURE [x, y: INTEGER] 
RETURNS[WindowHandle, xCoord, yCoord] = 
-- This guy takes Cursor coordinates and tries to find 
-- the "top most" window for them and 
-- returns the x,y in window coords 
BEGIN 
-- define locals 

wptr: WindowHandle ♦- currentwindow; 
rectangle: Rptr; 
wx: xCoord; 
wy: yCoord; 
slop: INTEGER ♦- 5; 
— now check windows 
DO 

rectangle ♦• wptr. rectangle; 

wx ♦• X - (rectangle. xO + rectangle . bitmap . xO) ; 
wy ♦• y - (rectangle .yO + rectangle . bitmap .yO) ; 
IF (wx >= -slop) AND (wx <= rectangle. width + slop) AND 
(wy >= -slop) AND (wy <= rectangle . height + slop) THEN 
RETURN[wptr, wx , wy]; 
wptr ♦• wptr. 1 ink; 

IF wptr ' currentwindow THEN RETURN[NIL, 0, 0]; 
slop *- 0; 
ENDLOOP; 
END; 

GetLineTable: PUBLIC PROCEDURE RETURNS[POINTER] = 
BEGIN 

RETURN[Qlinestarts]; 
END; 

GetCurrentDisplayWindow: PUBLIC PROCEDURE RETURNS [WindowHandle] 
BEGIN 

RETURN[currentwindow]; 
END; 

SetCurrentDisplayWindow: PUBLIC PROCEDURE [w: WindowHandle] = 
BEGIN 
-- define locals 

next: WindowHandle; 
-- check if window ring is empty 
IF currentwindow = NIL THEN 
BEGIN 

w. 1 ink ♦- w; 
DoDataSetup[w] ; 
END 
ELSE 

IF w # currentwindow THEN 

BEGIN 
-- unlink him if he is currently linked 

IF w.link ff NIL THEN Unl i nkDi spl ayWindow[w] ; 
-- push current guys data 

UndoDataSe tup [currentwindow] ; 
-- now link him into window ring 
w.link ♦- currentwindow; 
next ♦- currentwindow; 
WHILf next. link fi currentwindow DO 
next <- nex t . 1 ink ; 
CNOLOOP; 
next. link ♦- w; 
OoDataSetup[w] ; 
END; 
-- make it current and repaint the data 
curren tw i ndow ♦- w ; 
Pa in LDispl ayW indow[w] ; 
FND; 
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- Routines for maintaining Window Data 

OpenDisplayWindows: PUBLIC PROCEDURE » 
BEGIN OPEN StreamDefs; 
-- This guy should set up anything to do with display windows 

— currently used: switching to/from the extenal debugger 
IF defaultwindow.type = scriptfile THEN 

OpenDiskStream[defaultwindow.f ile 
I StreamError => 
BEGIN defaultwindow.eof index ^ GetIndex[defaultwindow,f ile] ; 
RESUME END 

]; 

-- ensure at end 

SetIndex[defaultwindow.f ile, def aultwindow.eof index] ; 
END; 

CloseOisplayWindows: PUBLIC PROCEDURE « 
BEGIN 
~- define locals 

file: StreamHandle - def aultwindow.fi le; 

— This guy cleans up anything to do with display windows 

— currently used: switching to/from the extenal debugger 
IF file = NIL THEN RETURN; 

IF def aul twindow=currentwindow AND def aultwindow. tempindex = nul 1 index THEN 

def aul twindow.eof index *- Getlndex[f ile] 
ELSE Setlndex[f ile, def aul twindow. eof index] ; 
file.putCfile,CR]: 

THROUGH [0..9] DO f i le . put[f i 1 e, '-] ENDLOOP; 
CloseDiskStream[f ile]; 
END; 

SetFileForWindow: PUBLIC PROCEDURE [w: WindowHandle, filename: STRING] = 
BEGIN 

SetFileHandleForWindow[w, NIL, filename]; 
END; 

SetFileHandleForWindow: PUBLIC PROCEDURE [ 

w: WindowHandle, fileh: FileHandle, filename: STRING] = 

BEGIN 

-- define locals 

access: AccessOptions; 
-- do file type specific stuff 
SELECT w.type FROM 

scratch, -- data is maintained in scratch file 
scriptfile => -- data is maintained in typescript file 

access <- Read+Write+Append; 
file => -- data is a window on file 

access ♦- Read; 
ENDCASE => ERROR; 
-- verify file access is ok 

IF fileh = NIL THEN fileh ♦- NewFi 1 e[f i lename , access, Def aul tVers ion]; 
-- if already one shit can it (and name too) 
IF w.file if NIL THEN 
w. file. destroy[w. file]; 
-- now create a stream associated with the file 

w.file +- CreateByteStream[fileh, access] ; 
-- set length based on type 

w.fileindex ^ w.eofindex ♦- originindex; 
SELECT w.type FROM 

scriptfile => NULL; -- data is maintained in typescript file 
scratch => -- data is maintained in scratch file 

IF w ^i' curren twindow THfN CloseO i skStream[w. f i 1 e] ; 
file -> -- data is a window on file 
BEGIN 

w.eofindex ♦- F ile Length[ w.file]; 

U VI ff currentw indow THfN CloseD i skS tream[w. f ile] ; 
FND; 
rNDCASr => FRROR; 
-•- assign name and display procedure 
IF w.name // filename TfifN 
BFGIN 

IF w.name f/ NIL THFN FreeMeapStr i ng[w . name] ; 
w.name «- A1 locateHeapSLi' ing[ f i lename. length] ; 
Str ingDef s .Appends tr ing[w . name, f i lename]; 
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END; 
w.tempindex ♦• nullindex; 
w.displayproc ^ DisplayFileData; 

— set current selection null 

w. selection ♦- Selection[leftmargin, leftmargin ,1 , 1, null index, nullindex]; 
END; 

SetlndexForWindow: PUBLIC PROCEDURE [w: WindowHandle, index: Streamlndex] = 
BEGIN 

— set fileposition 
SELECT w.type FROM 

scratch, 
scriptf ile, 
file «> 

w.fileindex ♦- index; 
ENOCASE; 

— and paint it if it is the current one 
IF w - currentwindow THEN 

PaintDisplayWindow[w]; 
END; 

SetPositionForWindow: PUBLIC PROCEDURE [w: WindowHandle, pos: INTEGER] = 
BEGIN 
-- define locals 

fileindex: Streamlndex; 

— set fileposition 
SELECT w.type FROM 

scratch, 
scriptf ile. 
file => 

BEGIN 

fileindex <- Normal i2eIndex[StreamIndex[0 , pos]]; 

SetIndexForWindow[w, fileindex]; 

END; 
ENDCASE; 
END; 

DoDataSetup: PROCEDURE [w: WindowHandle] = 
BEGIN 

-- do everything to make this guy's data backup active 
SELECT w.type FROM 

clear => NULL; -- window is simply cleared on activation 
random => NULL; -- USERS responsibility to repaint screen 
scriptfile => NULL; -- data is maintained in typescript file 
scratch, -- data is maintained in scratch file 
file => -- window on a file 
IF w.file # NIL THEN 
OpenDiskStream[w, file 
I StreamError => 
BEGIN 

w.eofindex ♦- Getlndex[w. f ile] ; 
RESUME 
END 

ENDCASE; 
END; 

UndoDataSetup: PROCEDURE [w; WindowHandle] = 
BEGIN 

-- do everything to make this guy's data backup inactive 
SELECT w.type FROM 

clear => NULL; -- window is simply cleared on activation 
random => NULL; -- USERS responsibility to repaint screen 
scratch => -- data is maintained in scratch file 
IF w.file # NIL THEN 
BEGIN 

IF w.tempindex = nullindex THEN 
w.eofindex <- Getlndex[w. f lie] ; 
CloseDi skStream[w. file]; 
END; 
scriptfile => -~ data is maintained in typescript file 
If w. file ^ NIL THEN 
BFGIN 

IF w.tempindex = nullindex THFN 
w.eofindex <- Ge tlndex[w . f 11 e] ; 
StreamOef s .CleanupDiskStream[w. file]; 
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END; 
file «> -- window on a file 
IF w.file if NIL THEN 
StreamDefs.CloseDiskStream[w.f ile]; 
ENDCASE; 
END; 

WriteWindowChar: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] = 
BEGIN 
-- define locals 

w: WindowHandle ^ currentwindow; 
r: Rptr; 

index: Streamlndex; 
update: BOOLEAN ^ FALSE; 
— make sure its a Display Stream 
WITH ds: stream SELECT FROM 
Display »> 
BEGIN 
IF w.ds # Qds THEN 

w <- FindWindowWithStream[@ds]; 
SELECT w.type FROM 

clear, -- window is simply cleared on activation 
random => -- USERS responsibility to repaint 

WriteDisplayChar[@ds, char]; 
scratch, -- data is maintained in scratch file 
scriptfile «> -- data is maintained in typescript file 
BEGIN 

IF currentwindow. ds # 0ds THEN 
BEGIN 

w.tempindex ^ nullindex; 
w. ds. options. StopBottom <- FALSE; 
SetCurrentDispl ayWindow[w]: 
IF w.ks # NIL THEN OpenKeyStream[w. ks] ; 
— move the mouse into the windowl! 
r ♦- w. rectangle; 

xmloct 4- r.bitmap .xO+r.xO+(r. width/2) ; 
ymloct ♦- r. bitmap. yO+r. yO+( r .height/2) ; 
xcloct ♦- xmloct; 
ycloct 4- ymloc'^; 
END 
ELSE 

IF w.tempindex # nullindex THEN 
BEGIN 

w. ds. options .StopBottom *- FALSE; 
IF Getlndex[w. f ile] = w.eofindex THEN 
BEGIN 

w.fileindex ^ w.tempindex; 
w.tempindex ^ nullindex; 
END 
ELSE 

BEGIN -- reposition file to the end 
w.tempindex ♦• nullindex; 
PaintDispl ayWindow[w]; 
END; 
END; 
SELECT char FROM 

ControlA, BS => -- back space character 
BEGIN 

index ^ Getlndex[w. f ile]; 
w.eofindex ♦- index; 
IF index. byte = THEN 
BEGIN 

IF index. page # THEN 
BEGIN 

index. page ♦• index. page -1; 
index. byte ♦• 254; 
CND; 
END 
nsr index. byte ♦- index . by te-1 ; 
Set Index[w. f i le , index]; 
LNO; 
fNDCASF => 
BfGIN 

index <- Gellndex [w.file]; 
w. file. put[w. file, char]; 
w.eorindex ♦- Gellndex[w.file]; 
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WriteDisplayChar[(9ds, char 
I StreamError => 

IF stream » w.ds THEN 
BEGIN 

IF error =» StreamEnd THEN 
BEGIN 

— update the selection 

w. selection. leftline ^ MAX[0, w. selection. left! ine - 1]; 
w. selection, rightl ine ♦• 
MAX[0, w. selection. rightline - 1]; 

END; 
IF char # 15B THEN Setlndex[w. f ile. index]; 
FixupOnOverf low[w, error]; 

IF char i^ 15B THEN char ♦■ w. f i le.get[w. f ile]; 
RESUME; 
END 

]; 

END; 
END; 
file »> NULL; -- window on a file 
ENDCASE; 
END; 
ENDCASE => ERROR StreamError[stream, StreamType] ; 
END; 

FindWindowWithStream: PROCEDURE [ds: DisplayHandle] RETURNSCWindowHandle] = 
BEGIN 

— define locals 

w: WindowHandle ^ currentwindow; 

— run around window ring and find it 
DO 

IF w.ds = ds THEN RETURN[w]; 
w ^ w. 1 ink; 

IF w = currentwindow THEN EXIT; 
ENDLOOP; 
ERROR; -- good enough for now 
END; 

NILProc: PROCEDURE [w: WindowHandle] = 
BEGIN 

-- Dummy Display procedure 
END; 

DisplayFileData: PROCEDURE [w: WindowHandle] = 
BEGIN 

-- NOTE: this routine wants to be super efficient! I 
-- should use port to write characters 
-- define locals 

i, count, width: INTEGER; 
fullwin: BOOLEAN ^ FALSE; 
index: Streamlndex; 
char: CHARACTER; 
pfont: FAptr = w.ds.pfont; 
x: INTEGER ♦- w.ds.charx; 
dba: INTEGER; 
wad: BMptr; 

wordsperl ine: INTEGER = w. rectangle .bitmap .wordsperl ine ; 
-- check if really a file there 

IF w.file = NIL THFN RETURN; 
-- check if temporary positioning 

IF NOT EquaHndex[w. tempindex, null index] THEN 
BEGIN 

1 inesLarts[w . ds . 1 ine] ♦- w. tempindex; 
Setlndex[w. f i le, w. temp index] ; 
END 
ELSE 
BEGIN 

1 ines Lar ts[w. ds . 1 ine] ♦- w.fileindex; 
Sellndex[w. f i le, w.fileindex]; 
END; 
-- setup to do this fast 
index «- GetTndex[w. f i le] ; 
IF w.type = file THEN count <- 10000 

ELSE count ^ (w . eof i ndex . page- index . page ) *5 12 + ( w. eof index . by te- index .by te) ; 
[dba. wad] ^ SetupEorConver t[w. rectangle , w.ds.charx. w.ds. chary]; 
-- fill the window with text 
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WHILE count > DO 

index ♦• 6etlndex[w.f ile]; 
char ♦• w.f ile.get[w.f He 
I StreamError «> 
BEGIN 

w.eofindex *- Getlndex[w.f lie]; 
EXIT; 
END 

width <• ComputeCharWidth[char. pfont]; 
X ♦• X + width; 
IF char < 40C THEN 
BEGIN 

w.ds.charx ♦• x - width; 
St reamDefs. Scroll Displ ay [w.ds, char 
I StreamError »> 
IF stream » w.ds THEN 
BEGIN 

IF error » StreamEnd 
AND w.ds. options. StopBottom THEN 
BEGIN 

1inestarts[w.ds.line+l] ^ index; 
fullwin ♦- TRUE; 
EXIT; 
END 
ELSE FixupOnOverf 1ow[w, error]; 
RESUME; 
END 

]; 

X ^ w.ds.charx; 

[dba, wad] <- SetupForConvert[w. rectangle, x, w.ds. chary]; 
END 
ELSE IF X >« w. rectangle. cw THEN 
BEGIN 

w.ds.charx ♦- x - width; 
Setlndex[w.f ile, index]; 
StreamDefs. Scroll Display [w.ds. char 
1 StreamError *> 

IF stream « w.ds THEN 
BEGIN 

IF error = StreamEnd 
AND w.ds .options. StopBottom THEN 
BEGIN 

1 inestarts[w.ds . 1 ine+1] ♦■ index; 
fullwin ♦- TRUE; 
EXIT; 
END 
ELSE FixupOnOverf low[w, error]; 
RESUME; 
END 

]: 
char ♦- w. file. get[w. file]; 
X ♦•w.ds .charx; 

[dba, wad] <• SetupForConvert[w. rectangle, x, w.ds. chary]; 
END 
ELSE 

[width, dba. wad] ♦• CONVERT[char . pfont, wad. 
wordsperl ine, dba] ; 
count ^ count-1; 
ENDLOOP; 
w.ds .charx ♦• x; 
-- set remainder of line table null 

ir NOT fullwin THEN 1 inestar ts[w. ds . 1 I ne +1] ♦• nullindex; 

FOR i IN [LOOPHOLE[w.ds. 1 inc-^2. INTEGER] .. LOOPHOLE[max 1 ines , INTEGER]) DO 
1 inestarts[i ] ♦- nullindex; 
ENDLOOP: 
END; 

SetuprorConvert: PROCEDURE [rectangle: Rptr. x: xCoord, y: yCoord] 
RrTURNS[INTEGER, BMptr] = 
BEGIN 
-- define locals 

ywordofrset: INTEGER; 

wad; BMptr; 

dba: INTEGER; 

xofFset: xCoord; 
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wordsperline: INTEGER « rectangle. bitmap. wordsperl ine; 
— compute DBA and WAD 

xoffset ^ rectangle. xO + x; 

ywordoffset ^ (rectangle. yO + y - 1) * wordsperline; 

dba ^ InlineDefs.BITAND[InlineDefs.BITNOT[xoffset], 17B]; 

wad ♦- rectangle. bitmap. addr+(xoffset/16)+ywordoffset; 
RETURN[dba. wad] 
END; 

FixupOnOverflow: PROCEDURE [w: WindowHandle, error: StreamErrorCode] » 
-- NOTE: this routine is specific to windows using streams 
BEGIN 
-- define locals 

i: CARDINAL; 
-- fix up the line table based upon error code 
SELECT error FROM 

StreamEnd «> -- scroll it all up one line 
BEGIN 
FOR i IN [L.maxlines) DO 

linestartsCi] ^-linestartsCi+l]; 
ENDLOOP; 
w.fileindex *• 1 inestarts[l] ; 
END; 
StreamPosition -> NULL; 
ENDCASE; 
-- set current position in correspondence table 

1 inestarts[w.ds. 1 ine] ^ Getlndex[w.f lie]; 
END; 

- Mesa Display Window Initialization Routine 

setupdefaultwindow: PROCEDURE * 
BEGIN 

-- Smokey asked me to say this is awful and ugly (JDW) 
i: CARDINAL; 

defaultwindow. file ♦• CreateByteStream[preopen.f ile.Read+Write+Append]; 
defaultwindow. type ^ scriptfile; 
defaultwindow.ds. options .StopBottom ♦• FALSE; 
defaultwindow. tempindex ♦• nullindex; 
defaultwindow. displayproc ♦- DisplayFi leOata; 

defaultwindow. fileindex ♦- defaultwindow. eof index <- originindex; 
FOR i IN [1. .maxl ines] DO 
1 ines tarts[i] *- nullindex; 
ENDLOOP; 
END; 

initwindows: PROCEDURE » 
BEGIN 

ds: DisplayHandle; 
-- create the default window 
ds *- GetDefaultDisplayStream[]; 
defaultwindow ♦• CreateDisplayWindow [ 

clear, ds . rectangle, ds, GetDefauUKey[] , dfn]; 
setupdef auUwindow[] ; 
END; 

Cleanupltem: ImageOefs.CleanupItem ♦- ImageDef s.CleanupItem[ , CleanupWindows]: 

CleanupW indows : ImageOef s .CleanupProcedure = 
BEGIN 
SELECT why FROM 

Finish, Abort, Save => 
BEGIN 

IF defaultwindow. file = NIL THEN RETURN; 
IF defaul twindow. tempindex // nullindex THEN 

SeLTndex[defaul tw indow. file, defaul twindow. eof index] ; 
StreamDef s .TruncateDiskStream[ defaul tw indow. f ile] ; 
defaul twindow. f i 1 e ♦- NIL; 
If why = Save THEN 
BEGIN 

p reopen .file <- NIL; 
preopen.name ^ defaul tw indow. name; 
ImageDefs . AddFi 1eRequest[@p reopen] ; 
END; 
END: 
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OutLd «> C1oseDisp1ayWindows[]; 
InLd »> OpenOisp1ayWindows[]; 
Restore »> 

BEGIN 

IF preopen.file = NIL THEN 
preopen. file ♦- NewF il e[ de f au 1 twi n dow. name, Read+Write+Append.DefaultVers ion] ; 

setupdefaultwindow[]; 

SetCurrentDisplayWindow[defaul twindow]; 

END; 
ENDCASE «> ERROR; 
END; 

— MAIN BODY CODE 

preopen: short ImageDefs. FileRequest *- ImageDefs. FileRequest [ 

file: Nit, access: Read+Write+Append, link:, body: short[fill:, name: dfn]]; 

IF (REGISTER[ControlDefs.SOreg]+ControlDefs.sAddFneRequest)t # THEN 
BEGIN 

ImageDefs, Add FileRequest [©preopen]; 
STOP; 
END; 

IF preopen, file = NIL THEN 

preopen. file ^ NewFile[dfn,Read+Write+Append,Def aultVersion] ; 
initwindows[]; 
ImageDefs.AddCleanupProcedure[@CleanupItem]; 

END. of Window 



